home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh27c.d64
/
makro merge-file
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
6KB
|
349 lines
60000 ;*********************************
60010 ;* *
60020 ;* GRAFIK-MAKROS MERGE FILE *
60030 ;* ------------------------ *
60040 ;* ZU DEN *
60050 ;* GIGA-ASS GRAFIK-ROUTINEN *
60060 ;* *
60070 ;*********************************
60080 ;
60090 ;---------------------------------
60100 ; DIESES FILE IST EINEM GIGA-ASS
60110 ; QUELLTEXT, DER AUF DIE GRAFIK-
60120 ; ROUTINEN ZUGREIFT, MIT DEM "M"-
60130 ; BEFEHL ANZUHAENGEN.
60140 ;
60150 ; DEN MAKROS MUSS UEBER DIE BASIS
60160 ; ADRESSE "BA" MITGETEILT WERDEN,
60170 ; AN WELCHER STELLE IM SPEICHER
60180 ; DIE GRAFIK-ROUTINEN LIEGEN.
60190 ;
60200 ; DIE MAKROS SELBST GREIFEN NUR
60210 ; UEBER DIE DIE GRAFIK-ROUTINEN
60220 ; EINLEITENDE JUMP-TABLE AUF DIE
60230 ; ROUTINEN ZU.
60240 ;
60250 ;---------------------------------
60260 ;
60270 ;
60280 ;---------------------------------
60290 ;
60300 ; ZU JEDER GRAFIK-ROUTINE MIT
60310 ; PARAMETERN GIBT ES ZWEI MAKROS:
60320 ;
60330 ; A) EIN MAKRO, DER ALS PARAMETER
60340 ; DIE AKTUELLEN PARAMETER
60350 ; SELBST ALS WERT-PARAMETER
60360 ; ERHAELT
60370 ; ("CALL BY VALUE")
60380 ;
60390 ; B) EIN MAKRO, DER ALS PARAMETER
60400 ; DIEJENIGEN ADRESSEN MITGE-
60410 ; TEILT BEKOMMT, AN DENEN DIE
60420 ; AKTUELLEN PARAMETER STEHEN
60430 ; ("CALL BY REFERENCE")
60440 ;
60450 ; MAKROS VOM TYP B) UNTERSCHEIDEN
60460 ; SICH VON DENJENIGEN VOM TYP A)
60470 ; DURCH EIN ANGEHAENGTES "I"
60480 ; (Z.B. LINEI, FRAMEI, CIRCLEI),
60490 ; WELCHES FUER "INDIREKTE"
60500 ; PARAMETER-ANGABE STEHT.
60510 ;
60520 ;---------------------------------
60530 ;
60540 TAB(BA=$C000
60550 ;
60560 ;=================================
60570 ; GRAFIK-ROUTINEN UEBERGREIFENDE
60580 ; MAKROS
60590 ;=================================
60600 ;
60610 GETSPACEWAIT
60620 MID$203
60630 STR$#$3C
60640 (null)*-4
60650 MID$203
60660 STR$#$3C
60670 (null)*-4
60680 NEW
60690 GETBORDERCLOSECOLOR
60700 MID$#COLOR
60710 (null)$D020
60720 NEW
60730 GETBACKGROUNDCLOSECOLOR
60740 MID$#COLOR
60750 (null)$D021
60760 NEW
60770 GETINTERRUPT_ON
60780 MID$#$81
60790 (null)$DC0D
60800 NEW
60810 GETLCVCLOSEXCVAL,YCVAL
60820 MID$#<(XCVAL)
60830 PEEK#>(XCVAL)
60840 LEN#YCVAL
60850 NEW
60860 GETLCICLOSEXCADR,YCADR
60870 MID$XCADR
60880 PEEKXCADR+1
60890 LENYCADR
60900 NEW
60910 GETMCVCLOSEXCVAL,YCVAL,ADR
60920 LCVCLOSEXCVAL,YCVAL
60930 (null)ADR
60940 (null)ADR+1
60950 (null)ADR+2
60960 NEW
60970 GETMCICLOSEXCADR,YCADR,ADR
60980 MID$XCADR
60990 PEEKXCADR+1
61000 LENYCADR
61010 (null)ADR
61020 (null)ADR+1
61030 (null)ADR+2
61040 NEW
61050 ;
61060 ;
61070 ;=================================
61080 ; MAKROS ZUM AUFRUF DER
61090 ; GRAFIK-ROUTINEN
61100 ;=================================
61110 ;
61120 GETPAGECLOSEVAL
61130 PEEK#VAL
61140 (null)BA+$00
61150 NEW
61160 GETPAGEICLOSEADR
61170 PEEKADR
61180 (null)BA+$00
61190 NEW
61200 GETDESIGNCLOSEVAL
61210 PEEK#VAL
61220 (null)BA+$03
61230 NEW
61240 GETDESIGNICLOSEADR
61250 PEEKADR
61260 (null)BA+$03
61270 NEW
61280 GETOFF
61290 (null)BA+$06
61300 NEW
61310 GETINV
61320 (null)BA+$09
61330 INTERRUPT_ON
61340 NEW
61350 GETCLEAR
61360 (null)BA+$0C
61370 NEW
61380 GETCOLORCLOSEVAL
61390 MID$#VAL
61400 (null)BA+$0F
61410 NEW
61420 GETCOLORICLOSEADR
61430 MID$ADR
61440 (null)BA+$0F
61450 NEW
61460 GETSETCOLCLOSELNVAL,CLVAL,COVAL
61470 MID$#LNVAL
61480 PEEK#CLVAL
61490 LEN#COVAL
61500 (null)BA+$12
61510 NEW
61520 GETSETCOLICLOSELNADR,CLADR,COADR
61530 MID$LNADR
61540 PEEKCLADR
61550 LENCOADR
61560 (null)BA+$12
61570 NEW
61580 ;---------------------------------
61590 ; EINZELPUNKT MAKROS
61600 ;---------------------------------
61610 GETCLEARDOTCLOSEXCVAL,YCVAL
61620 LCVCLOSEXCVAL,YCVAL
61630 (null)BA+$15
61640 INTERRUPT_ON
61650 NEW
61660 GETCLEARDOTICLOSEXCADR,YCADR
61670 LCICLOSEXCADR,YCADR
61680 (null)BA+$15
61690 INTERRUPT_ON
61700 NEW
61710 GETSETCLOSEXCVAL,YCVAL
61720 LCVCLOSEXCVAL,YCVAL
61730 (null)BA+$18
61740 INTERRUPT_ON
61750 NEW
61760 GETSETICLOSEXCADR,YCADR
61770 LCICLOSEXCADR,YCADR
61780 (null)BA+$18
61790 INTERRUPT_ON
61800 NEW
61810 GETTESTCLOSEXCVAL,YCVAL
61820 LCVCLOSEXCVAL,YCVAL
61830 (null)BA+$1B
61840 INTERRUPT_ON
61850 NEW
61860 GETTESTICLOSEXCADR,YCADR
61870 LCICLOSEXCADR,YCADR
61880 (null)BA+$1B
61890 INTERRUPT_ON
61900 NEW
61910 GETACCESSCLOSEXCVAL,YCVAL
61920 LCVCLOSEXCVAL,YCVAL
61930 (null)BA+$1E
61940 INTERRUPT_ON
61950 NEW
61960 GETACCESSICLOSEXCADR,YCADR
61970 LCICLOSEXCADR,YCADR
61980 (null)BA+$1E
61990 INTERRUPT_ON
62000 NEW
62010 ;---------------------------------
62020 ; MAKROS FUER MEHRERE PUNKTE
62030 ;---------------------------------
62040 GETLINECLOSEX0VAL,Y0VAL,X1VAL,Y1VAL
62050 MCVCLOSEX0VAL,Y0VAL,BA+$21
62060 MCVCLOSEX1VAL,Y1VAL,BA+$24
62070 (null)BA+$27
62080 INTERRUPT_ON
62090 NEW
62100 GETLINEICLOSEX0ADR,Y0ADR,X1ADR,Y1ADR
62110 MCICLOSEX0ADR,Y0ADR,BA+$21
62120 MCICLOSEX1ADR,Y1ADR,BA+$24
62130 (null)BA+$27
62140 INTERRUPT_ON
62150 NEW
62160 GETLINECCLOSEX0VAL,Y0VAL,X1VAL,Y1VALIGA-ASSREADY
62170 MCVCLOSEX0VAL,Y0VAL,BA+$21
62180 MCVCLOSEX1VAL,Y1VAL,BA+$24
62190 (null)BA+$2A
62200 INTERRUPT_ON
62210 NEW
62220 GETLINEICCLOSEX0ADR,Y0ADR,X1ADR,Y1ADR
62230 MCICLOSEX0ADR,Y0ADR,BA+$21
62240 MCICLOSEX1ADR,Y1ADR,BA+$24
62250 (null)BA+$2A
62260 INTERRUPT_ON
62270 NEW
62280 GETFRAMECLOSEX0VAL,Y0VAL,X1VAL,Y1VAL
62290 MCVCLOSEX0VAL,Y0VAL,BA+$2D
62300 MCVCLOSEX1VAL,Y1VAL,BA+$30
62310 (null)BA+$33
62320 INTERRUPT_ON
62330 NEW
62340 GETFRAMEICLOSEX0ADR,Y0ADR,X1ADR,Y1ADR
62350 MCICLOSEX0ADR,Y0ADR,BA+$2D
62360 MCICLOSEX1ADR,Y1ADR,BA+$30
62370 (null)BA+$33
62380 INTERRUPT_ON
62390 NEW
62400 GETCFRAMECLOSEX0VAL,Y0VAL,X1VAL,Y1VAL
62410 MCVCLOSEX0VAL,Y0VAL,BA+$2D
62420 MCVCLOSEX1VAL,Y1VAL,BA+$30
62430 (null)BA+$36
62440 INTERRUPT_ON
62450 NEW
62460 GETCFRAMEICLOSEX0ADR,Y0ADR,X1ADR,Y1ADR
62470 MCICLOSEX0ADR,Y0ADR,BA+$2D
62480 MCICLOSEX1ADR,Y1ADR,BA+$30
62490 (null)BA+$36
62500 INTERRUPT_ON
62510 NEW
62520 GETFILLCLOSEXCVAL,YCVAL
62530 LCVCLOSEXCVAL,YCVAL
62540 (null)BA+$39
62550 INTERRUPT_ON
62560 NEW
62570 GETFILLICLOSEXCADR,YCADR
62580 LCICLOSEXCADR,YCADR
62590 (null)BA+$39
62600 INTERRUPT_ON
62610 NEW
62620 GETTEXTCLOSEADR,LINE,COLUMN,EXPX,EXPY,CASE,TEXTCOLOR
62630 MID$#COLUMN
62640 (null)BA+$3C
62650 MID$#LINE
62660 (null)BA+$3D
62670 MID$#EXPX
62680 (null)BA+$3E
62690 MID$#EXPY
62700 (null)BA+$3F
62710 MID$#CASE
62720 (null)BA+$40
62730 MID$#<(ADR)
62740 LEN#>(ADR)
62750 PEEK#TEXTCOLOR
62760 (null)BA+$41
62770 INTERRUPT_ON
62780 NEW
62790 GETTEXTICLOSEIADR,ILINE,ICOLUMN,IEXPX,IEXPY,ICASE,ITEXTCOLOR
62800 MID$ICOLUMN
62810 (null)BA+$3C
62820 MID$ILINE
62830 (null)BA+$3D
62840 MID$IEXPX
62850 (null)BA+$3E
62860 MID$IEXPY
62870 (null)BA+$3F
62880 MID$ICASE
62890 (null)BA+$40
62900 MID$IADR
62910 LENIADR+1
62920 PEEKITEXTCOLOR
62930 (null)BA+$41
62940 INTERRUPT_ON
62950 NEW
62960 GETCIRCLECLOSEXCVAL,YCVAL,RADVAL
62970 MID$#RADVAL
62980 (null)BA+$44
62990 LCVCLOSEXCVAL,YCVAL
63000 (null)BA+$45
63010 INTERRUPT_ON
63020 NEW
63030 GETCIRCLEICLOSEXCADR,YCADR,RADADR
63040 MID$RADADR
63050 (null)BA+$44
63060 LCICLOSEXCADR,YCADR
63070 (null)BA+$45
63080 INTERRUPT_ON
63090 NEW
63100 GETCCIRCLECLOSEXCVAL,YCVAL,RADVAL
63110 MID$#RADVAL
63120 (null)BA+$44
63130 LCVCLOSEXCVAL,YCVAL
63140 (null)BA+$48
63150 INTERRUPT_ON
63160 NEW
63170 GETCCIRCLEICLOSEXCADR,YCADR,RADADR
63180 MID$RADADR
63190 (null)BA+$44
63200 LCICLOSEXCADR,YCADR
63210 (null)BA+$48
63220 INTERRUPT_ON
63230 NEW
63240 GETLINESCLOSEPOINTER
63250 MID$#<(POINTER)
63260 LEN#>(POINTER)
63270 (null)BA+$4B
63280 INTERRUPT_ON
63290 NEW
63300 GETLINESICLOSEIPOINTER
63310 MID$IPOINTER
63320 LENIPOINTER+1
63330 (null)BA+$4B
63340 INTERRUPT_ON
63350 NEW
63360 GETLINESCCLOSEPOINTER
63370 MID$#<(POINTER)
63380 LEN#>(POINTER)
63390 (null)BA+$4E
63400 INTERRUPT_ON
63410 NEW
63420 GETLINESICCLOSEIPOINTER
63430 MID$IPOINTER
63440 LENIPOINTER+1
63450 (null)BA+$4E
63460 INTERRUPT_ON
63470 NEW